(vc-revert-buffer1): Fix format of compilation-error-list.

diff --git a/lisp/vc.el b/lisp/vc.el
index 434f254314818d9b48e9823812694dd30ac9fb1c..2e0fa62eac0e8988055eab8289aec785779a2476 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -282,10 +282,10 @@ the master name of FILE; this is appended to an optional list of FLAGS."
                                          (buffer-error-marked-p nil))
                                      (while (and errors
                                                  (not buffer-error-marked-p))
-                                       (and (markerp (car (cdr (car errors))))
+                                       (and (markerp (cdr (car errors)))
                                             (eq buffer
                                                 (marker-buffer
-                                                 (car (cdr (car errors)))))
+                                                 (cdr (car errors))))
                                             (setq buffer-error-marked-p t))
                                        (setq errors (cdr errors)))
                                      (if buffer-error-marked-p buffer)))